home *** CD-ROM | disk | FTP | other *** search
/ ftp.mactech.com 2010 / ftp.mactech.com.tar / ftp.mactech.com / thinkref / archive / THINKPascalUH2.1.sea / THINKPas Univ Hdr 2.1 / Interfaces / ConnectionTools.p < prev    next >
Text File  |  1995-09-14  |  3KB  |  127 lines
  1. { Converted with MPW2TPas Tuesday, September 12, 1995 5:40:21 PM }
  2. {}
  3. {     File:        ConnectionTools.p}
  4. { }
  5. {     Contains:    Communications Toolbox Connection Tools Interfaces.}
  6. { }
  7. {     Version:    Technology:    System 7.5}
  8. {                 Package:    Universal Interfaces 2.1 in “MPW Latest” on ETO #18}
  9. { }
  10. {     Copyright:    © 1984-1995 by Apple Computer, Inc.}
  11. {                 All rights reserved.}
  12. { }
  13. {     Bugs?:        If you find a problem with this file, use the Apple Bug Reporter}
  14. {                 stack.  Include the file and version information (from above)}
  15. {                 in the problem description and send to:}
  16. {                     Internet:    apple.bugs@applelink.apple.com}
  17. {                     AppleLink:    APPLE.BUGS}
  18. { }
  19. {}
  20.  
  21. unit ConnectionTools;
  22. interface
  23.  
  24.  
  25. {$IFC UNDEFINED __CONNECTIONTOOLS__}
  26. {$SETC __CONNECTIONTOOLS__ := 1}
  27.  
  28.     uses
  29.         ConditionalMacros, Types, Quickdraw, Controls, Windows, Dialogs, Connections;
  30.  
  31. { $PUSH}
  32. { $ALIGN MAC68K}
  33. { $LibExport+}
  34.  
  35.     const
  36. { messages for DefProc }
  37.         cmInitMsg = 0;
  38.         cmDisposeMsg = 1;
  39.         cmSuspendMsg = 2;
  40.         cmResumeMsg = 3;
  41.         cmMenuMsg = 4;
  42.         cmEventMsg = 5;
  43.         cmActivateMsg = 6;
  44.         cmDeactivateMsg = 7;
  45.         cmIdleMsg = 50;
  46.         cmResetMsg = 51;
  47.         cmAbortMsg = 52;
  48.         cmReadMsg = 100;
  49.         cmWriteMsg = 101;
  50.         cmStatusMsg = 102;
  51.         cmListenMsg = 103;
  52.         cmAcceptMsg = 104;
  53.         cmCloseMsg = 105;
  54.         cmOpenMsg = 106;
  55.         cmBreakMsg = 107;
  56.         cmIOKillMsg = 108;
  57.         cmEnvironsMsg = 109;
  58. { new connection tool messages for ctb 1.1 }
  59.         cmNewIOPBMsg = 110;
  60.         cmDisposeIOPBMsg = 111;
  61.         cmGetErrorStringMsg = 112;
  62.         cmPBReadMsg = 113;
  63.         cmPBWriteMsg = 114;
  64.         cmPBIOKillMsg = 115;
  65. {    messages for validate DefProc    }
  66.         cmValidateMsg = 0;
  67.         cmDefaultMsg = 1;
  68. {    messages for Setup DefProc    }
  69.         cmSpreflightMsg = 0;
  70.         cmSsetupMsg = 1;
  71.         cmSitemMsg = 2;
  72.         cmSfilterMsg = 3;
  73.         cmScleanupMsg = 4;
  74. {    messages for scripting defProc    }
  75.         cmMgetMsg = 0;
  76.         cmMsetMsg = 1;
  77. {    messages for localization defProc    }
  78.         cmL2English = 0;
  79.         cmL2Intl = 1;
  80.  
  81. { private data constants }
  82.         cdefType = 'cdef';                        { main connection definition procedure }
  83.         cvalType = 'cval';                        { validation definition procedure }
  84.         csetType = 'cset';                        { connection setup definition procedure }
  85.         clocType = 'cloc';                        { connection configuration localization defProc }
  86.         cscrType = 'cscr';                        { connection scripting defProc interfaces }
  87.         cbndType = 'cbnd';                        { bundle type for connection }
  88.         cverType = 'vers';
  89.  
  90.  
  91.     type
  92.         CMDataBuffer = record
  93.                 thePtr: Ptr;
  94.                 count: LONGINT;
  95.                 channel: CMChannel;
  96.                 flags: CMFlags;
  97.             end;
  98.  
  99.         CMDataBufferPtr = ^CMDataBuffer;
  100.  
  101.         CMCompletorRecord = record
  102.                 async: BOOLEAN;
  103.                 completionRoutine: ConnectionCompletionUPP;
  104.             end;
  105.  
  106.         CMCompletorPtr = ^CMCompletorRecord;
  107.  
  108. {    Private Data Structure    }
  109.         CMSetupStruct = record
  110.                 theDialog: DialogPtr;
  111.                 count: INTEGER;
  112.                 theConfig: Ptr;
  113.                 procID: INTEGER;                                { procID of the tool    }
  114.             end;
  115.  
  116.         CMSetupPtr = ^CMSetupStruct;
  117.  
  118.  
  119. { $ALIGN RESET}
  120. { $POP}
  121.  
  122. {$ENDC}
  123.  {__CONNECTIONTOOLS__}
  124.  
  125. implementation
  126. end.
  127.